home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI151.ASC < prev    next >
Text File  |  1991-09-11  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT : TURBO GAMEWORKS                                     NUMBER
  9.                                                               : 151
  10.   VERSION : 1.00x
  11.        OS : PC-DOS
  12.      DATE : March 13, 1986                               PAGE : 1/2
  13.     TITLE : SCORING UPDATE FOR BRIDGTE
  14.  
  15.  
  16.  
  17.  
  18.   The following are updates to the scoring in the BRIDGE program.
  19.  
  20.   Make  the modifications listed below,  and enter the current date
  21.   at the top of each module.
  22.  
  23.   All modifications must be made to the SCORE.BR include file  with
  24.   Turbo Pascal, version 3.0.
  25.  
  26.   1)   The first change involves a stray 1 that is added to the
  27.        overline score after a game is won. To rectify this:
  28.  
  29.        In procedure AddBonus:
  30.  
  31.        Change:
  32.  
  33.           if RubberBonus > 0 then
  34.            ...
  35.        To:
  36.  
  37.           if RubberBonus > 1 then
  38.            ...
  39.  
  40.    2)  The following changes correct the totals that are sent to
  41.        the script file:
  42.  
  43.       A) In procedure CompareTotals
  44.  
  45.         Change:
  46.  
  47.             N_S.Total := N_S.Total + RubberBonus;
  48.             if E_W.Total > N_S.Total then
  49.  
  50.         To:
  51.  
  52.             if E_W.Total > N_S.Total + RubberBonus then
  53.  
  54.         Change:
  55.  
  56.            E_W.Total := E_W.Total + RubberBonus;
  57.            if N_S.Total > E_W.Total then
  58.  
  59.         To:
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT : TURBO GAMEWORKS                                     NUMBER
  75.                                                               : 151
  76.   VERSION : 1.00x
  77.        OS : PC-DOS
  78.      DATE : March 13, 1986                               PAGE : 2/2
  79.     TITLE : SCORING UPDATE FOR BRIDGE
  80.  
  81.  
  82.  
  83.  
  84.            if N_S.Total > E_W.Total + RubberBonus then
  85.  
  86.      B) In procedure OutputGame delete both occurrences of:
  87.  
  88.            Total := Total + GameRecord[ThisGame];
  89.  
  90.      C) In procedure OutputTeamTotals:
  91.  
  92.        Change:
  93.  
  94.           with N_S do
  95.             Write(OutputFile, Total + OverLine:4 , '  |  ');
  96.           with E_W do
  97.             Write(OutputFile, Total + OverLine:4);
  98.  
  99.        To:
  100.  
  101.           with N_S do
  102.             Write(OutputFile, Total:4 , '  |  ');
  103.           with E_W do
  104.             Write(OutputFile, Total:4);
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.